10 REM    ********************
20 REM    *MOUSE IN THE HOUSE*
30 REM    *    BY JC HILTY   *
40 REM    ********************
50 V=53248:Q=54272:CS=0:MS=0:LP=0:TM=1000
60 GOSUB1200
70 DIMS$(4),S(6):S$(0)=""
80 FORX=1TO4:S$(X)=S$(X-1)+"":NEXT
90 FORX=0TO6:S(X)=X*5+2:NEXT:A$="[223][169][157][157][146][154][184][184]"
100 PRINT"[147]":POKE53280,0:POKE53281,15
110 FORX=56257TO56294:POKEX,2:NEXT:FORX=1985TO2022:POKEX,160:NEXT
120 PRINTTAB(1)"                                      "
130 FORX=1TO22:PRINT""TAB(1)" "TAB(38)" ":NEXT
140 PRINT""TAB(5)TM;TAB(15)"MOUSE "MS;TAB(27)"CAT "CS
150 GOSUB800
160 POKEV+39,8:POKEV+40,11:POKEV+41,6:POKE2040,197:POKE2041,192:POKE2042,196
170 FORX=50435TO50438:POKEX,0:NEXT:POKE50688,6
175 Y=INT(RND(9)*140)+80:POKEV+1,Y
180 POKEV+0,255:POKEV+2,58:POKEV+3,76:POKEV+16,4:POKEV+4,46
190 POKEV+5,76:POKEV+21,7:POKE50432,6
195 W1=PEEK(V+30):W2=PEEK(V+31)
199 REM    MAIN LOOP
200 JY=PEEK(56321)AND15
202 IFJY=7THENPOKE50435,1:POKE50436,0:POKE50688,2:POKE2041,192:GOTO210
204 IFJY=11THENPOKE50435,255:POKE50436,0:POKE50688,2:POKE2041,194:GOTO210
206 IFJY=13THENPOKE50435,0:POKE50436,1:POKE50688,2:GOTO210
208 IFJY=14THENPOKE50435,0:POKE50436,255:POKE50688,2:GOTO210
210 JG=PEEK(56320)AND15
212 IFJG=7THENPOKE50437,1:POKE50438,0:POKE50688,4:POKE2042,195:GOTO220
214 IFJG=11THENPOKE50437,255:POKE50438,0:POKE50688,4:POKE2042,196:GOTO220
216 IFJG=13THENPOKE50437,0:POKE50438,1:POKE50688,4:GOTO220
218 IFJG=14THENPOKE50437,0:POKE50438,255:POKE50688,4:GOTO220
220 TM=TM-1:PRINT""TAB(6)"    ":PRINT""TAB(5)TM:IFTM=0THEN500
225 LP=LP+1:IFLP=50THENPOKEV+39,5
226 IFLP>70 THENGOSUB300
227 W1=PEEK(V+30):IFW1AND2THEN350
228 W2=PEEK(V+31):IFW2>1THEN400
230 GOTO200
300 R=INT(6*RND(5)+1):ONRGOSUB302,303,304,305,306,307
301 Y=INT(RND(6)*140)+80:POKEV+1,Y:POKEV+39,8:LP=0:RETURN
302 POKEV+0,55:RETURN
303 POKEV+0,95:RETURN
304 POKEV+0,135:RETURN
305 POKEV+0,175:RETURN
306 POKEV+0,215:RETURN
307 POKEV+0,255:RETURN
349 REM    MOUSE COLLISION
350 POKE50432,0:IFW1>3THEN370
352 POKEV+21,6:FORL=0TO24:POKEQ+L,0:NEXT:POKEQ+24,143:POKEQ+5,16:POKEQ+19,16
354 POKEQ+6,252:POKEQ+20,249
355 FORT=0TO10:POKE2041,193:POKEQ+4,21:POKEQ+18,17:POKEQ+1,68:POKEQ+15,42
356 FORI=0TO100:NEXT:POKE2041,192:POKEQ+4,20:POKEQ+18,16:FORI=0TO100:NEXT:NEXTT
358 MS=MS+10:PRINT""TAB(21)MS:POKEV+21,0:LP=0:GOTO150
370 POKEV+21,5:FORL=0TO24:POKEQ+L,0:NEXT:POKEQ+24,15:POKEQ+5,80:POKEQ+6,243
372 POKEQ+3,4
374 FORT=0TO8:POKE2042,195:POKEQ+4,65:FORI=20TO80STEP5:POKEQ+1,I:NEXT
376 POKE2042,196:POKEQ+4,64:FORI=0TO50:NEXT:NEXTT
380 CS=CS+10:PRINT""TAB(31)CS:POKEV+21,0:LP=0:GOTO150
399 REM    SCREEN COLLISIONS
400 POKE50432,0
402 IFW2AND2THENK=40:GOSUB420:CS=CS+10:PRINT""TAB(31)CS:POKEV+21,0:GOTO150
404 K=41:GOSUB420:MS=MS+10:PRINT""TAB(21)MS:POKEV+21,0:GOTO150
420 FORL=0TO24:POKEQ+L,0:NEXT:POKEQ+24,15:POKEQ+5,80:POKEQ+6,243:POKEQ+3,7
422 FORT=50TO17STEP-1:POKEQ+4,65:POKEV+K,2:POKEQ+1,T:FORDR=1TO20:NEXTDR
424 POKEV+K,1:FORDR=1TO10:NEXTDR:NEXTT:POKEQ+4,64:LP=0:RETURN
499 REM    GAME OVER
500 POKE50432,0:PRINT"[147]":POKEV+21,0:POKE53281,0:POKE53280,0
505 POKEV+23,6:POKEV+29,6:POKEV+2,80:POKEV+3,80:POKEV+16,0:POKEV+4,255
506 POKEV+5,80:POKE2041,192:POKE2042,196:POKEV+21,6
510 PRINT""TAB(12)"[159]G A M E  O V E R":PRINT:PRINT
515 PRINTTAB(12)"MOUSE SCORE "MS:PRINT:PRINTTAB(12)"CAT SCORE "CS:PRINT:PRINT
520 GOSUB900:PRINTTAB(12)"[158]PLAY AGAIN  Y OR N"
525 GET JK$:IFJK$<>""THEN525
530 GET P$:IFP$=""THEN530
535 IFP$="Y"THEN545
540 END
545 TM=1000:MS=0:CS=0:LP=0:POKEV+23,0:POKEV+29,0:POKEV+21,0:GOTO100
799 REM    SET TRAPS
800 PRINT"":FORX=1TO22:PRINTTAB(2)"                                    ":NEXT
810 L=INT(RND(9)*10)+15
820 FORX=0TOL:H=INT(RND(5)*7):CO=INT(RND(9)*5)
830 PRINTS$(CO)TAB(S(H))A$:NEXT
840 RETURN
899 REM    MUSIC
900 RESTORE
905 FORX=0TO24:POKEQ+X,0:NEXT:POKEQ+24,15
910 POKEQ+6,240:POKEQ+13,240:POKEQ+20,240
920 READN1,N2,N3,N4,N5,N6,DR:IFN1=0THENRETURN
925 POKEQ+1,N1:POKEQ+8,N3:POKEQ+15,N5:POKEQ,N2:POKEQ+7,N4:POKEQ+14,N6
930 POKEQ+4,17:POKEQ+11,17:POKEQ+18,17:FORZ=1TODR/4:NEXTZ
935 POKEQ+4,16:POKEQ+11,16:POKEQ+18,16:FORT=1TO20:NEXTT:GOTO920
940 DATA 36,208,0,0,0,0,500,36,208,0,0,0,0,500,30,245,0,0,0,0,500
945 DATA 36,208,0,0,0,0,500,41,83,30,245,24,146,500,36,208,0,0,0,0,500
950 DATA 30,245,24,146,18,104,1000
955 DATA 30,245,0,0,0,0,500,27,148,0,0,0,0,1000,46,99,32,204,27,148,500
960 DATA 30,245,0,0,0,0,500,27,148,0,0,0,0,1000
965 DATA 36,208,0,0,0,0,500,36,208,0,0,0,0,500,36,208,0,0,0,0,500
970 DATA 30,245,0,0,0,0,500,36,208,0,0,0,0,500
975 DATA 41,83,30,245,24,146,500,36,208,0,0,0,0,500,30,245,24,146,18,104,1000
980 DATA 27,148,0,0,0,0,500,46,99,32,204,27,148,500
985 DATA 30,245,0,0,0,0,500,27,148,0,0,0,0,500
990 DATA 24,146,0,0,0,0,1000,30,245,24,146,18,204,1000,0,0,0,0,0,0,0
1190 REM    TITLE SCREEN
1200 POKE53281,0:POKE53280,0
1205 PRINT"[147]"TAB(3)"[150]                                  "
1210 PRINTTAB(3)" M O U S E  I N  T H E  H O U S E "
1215 PRINTTAB(3)"                                  ":PRINT
1220 PRINTTAB(16)"[155]  [146]     ":PRINTTAB(15)"    [146]     "
1225 PRINTTAB(15)"    [146]     ":   PRINTTAB(16)"  [146]     ":PRINTTAB(17)"    "
1230 PRINTTAB(16)"   [146][169][155] [146][169]":PRINTTAB(16)"[155]         "
1235 PRINTTAB(10)"[155] [146]             ":   PRINTTAB(10)"   [146]      "
1240 PRINTTAB(12)" [146]    [151] [155] ":PRINTTAB(10)"   [146]    [151] [155] "
1245 PRINTTAB(10)" [146]     [151]  [155]  ":PRINTTAB(10)" [146]         "
1250 PRINTTAB(10)" [146]         ":PRINTTAB(10)"       [146]    "
1255 PRINTTAB(15)"   [146]    ":PRINT
1260 PRINTTAB(1)"[159]THERE ARE A LOT OF TRAPS AROUND HERE!!"
1265 PRINTTAB(4)"BUT I SURE DO LOVE THAT CHEESE!!"
1270 GOSUB900
1280 PRINTTAB(6)"[158] PLEASE WAIT..READING DATA "
1285 FORX=50880TO51116:READA:POKEX,A:NEXT
1286 FORX=50433TO50438:POKEX,0:NEXT:POKE50432,0:SYS51104
1287 FORX=12288TO12670:READA:POKEX,A:NEXT
1288 RETURN
1290 DATA 169,255,45,0,198,240,16,169,0,141,0,198,162,21,189,0,197,157,0,198
1295 DATA 202,208,247,162,1,169,1,141,80,197,173,80,197,45,0,197,240,3,76
1300 DATA 243,198,232,232,14,80,197,208,238,76,49,234,169,0,29,0,197,208,3,76
1305 DATA 97,199,169,128,61,0,197,240,48,254,0,198,208,40,222,255,207,76,144
1310 DATA 199,80,197,45,16,208,208,12,173,16,208,13,80,197,141,16,208,76,43
1315 DATA 199,173,16,208,77,80,197,141,16,208,189,0,197,157,0,198,76,97,199,222
1320 DATA 0,198,208,40,254,255,207,208,29,173,80,197,45,16,208,208,12,173,16
1325 DATA 208,13,80,197,141,16,208,76,91,199,173,16,208,77,80,197,141,16,208
1330 DATA 189,0,197,157,0,198,169,0,232,29,0,197,208,3,76,140,199,169,128,61,0
1335 DATA 197,240,11,254,0,198,208,20,222,255,207,76,134,199,222,0,198,208
1340 DATA 9,254,255,207,189,0,197,157,0,198,202,76,233,198,169,255,221,255
1345 DATA 207,240,3,76,43,199,173,80,197,76,17,199,120,169,192,141,20,3,169
1350 DATA 198,141,21,3,88,96
1355 REM    SPRITE DATA
1360 DATA 0,0,0,0,0,0,0,0,0,0,198,0,1,239,0,1,239,0,0,198,0,0,120,0,0,236,0
1365 DATA 32,255,128,56,255,0,9,224,0,57,160,0,33,160,0,33,48,0,35,240,0
1370 DATA 35,240,0,63,152,0,1,220,0,0,0,0,0,0,0,0
1375 DATA 0,0,0,0,0,0,0,0,0,0,198,0,1,239,0,1,239,0,0,198,0,0,120,0,0,236,0
1380 DATA 32,255,128,224,254,0,129,236,0,225,166,0,33,163,0,33,48,0,35,240,0
1385 DATA 35,240,0,63,224,0,0,112,0,0,0,0,0,0,0,0
1390 DATA 0,0,0,0,0,0,0,0,0,0,99,0,0,247,128,0,247,128,0,99,0,0,30,0,0,55,0
1395 DATA 1,255,0,0,255,28,0,7,144,0,5,156,0,5,132,0,12,132,0,15,196,0,15,196
1400 DATA 0,25,252,0,59,128,0,0,0,0,0,0,0
1405 DATA 0,0,0,0,0,0,7,248,0,4,8,0,6,8,0,2,0,0,3,0,64,1,0,120,1,240,108
1410 DATA 1,248,252,1,255,252,3,255,192,3,255,192,3,255,192,7,255,192
1415 DATA 7,192,224,7,240,124,7,240,60,0,0,0,0,0,0,0,0,0,0
1420 DATA 0,0,0,0,0,0,0,31,224,0,16,32,0,16,96,0,0,64,2,0,192,30,0,128
1425 DATA 54,15,128,63,31,128,63,255,128,3,255,192,3,255,192,3,255,192
1430 DATA 3,255,224,7,3,224,62,15,224,60,15,224,0,0,0,0,0,0,0,0,0,0
1450 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,7,255,192,6,255,224,7,254,112
1455 DATA 7,254,112,7,59,240,7,63,240,7,255,176,7,255,240,5,231,144
1460 DATA 7,231,144,3,253,240,3,255,240,0,0,0,0,0,0,0,0,0